home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 034a / twview82.zip / INITGRPH.INC < prev    next >
Text File  |  1991-02-04  |  388b  |  20 lines
  1.  
  2. procedure InitGraphics;
  3. { Example for InitGraph }
  4.  
  5. var
  6.   grDriver : Integer;
  7.   grMode   : Integer;
  8.   ErrCode  : Integer;
  9. begin
  10.   grDriver := Detect;
  11.   InitGraph(grDriver,grMode,'');
  12.   ErrCode := GraphResult;
  13.   if ErrCode <> grOk then
  14.     WriteLn('Graphics error:',
  15.             GraphErrorMsg(ErrCode));
  16.   SetTextJustify( CenterText, CenterText );
  17. end; {InitGraphics}
  18.  
  19.  
  20.